#!/usr/bin/perl

use Graph;
use Data::Dumper;

# this intrinisically tests parseAllStocks and parseOneStock
sub testgetDateBlocks {
	my $da1 = Graph::getDateBlocks();
	my $da2 = Graph::getDateBlocks(0,1);
	print "RETURNED DATE BLOCK - 0 OFFSET\n";
	print Dumper($da1);
	print "RETURNED DATE BLOCK - 1 OFFSET\n";
	print Dumper($da2);
}

# this intrinisically tests parseAllStocks and parseOneStock
sub testgetTickerPairs {
	print "GET TICKER UNIQUE PAIRS\n";
    my $t_pairs = Graph::getTickerUniquePairs();
	print Dumper($t_pairs);
}

sub testprepareData {
	my $cc = Graph::prepareData();
	print "RETURNED CC\n";
	print Dumper($cc);
}

sub testprepareDataFuture {
	my $cc = Graph::prepareDataFuture();
	print "RETURNED CC\n";
	print Dumper($cc);
}

Graph::createGraph();

#&testprepareDataFuture();
#&testprepareData();

#&testgetTickerPairs;
#&testgetDateBlocks;


#Graph::stocksOrderedByReturnsPerDay;
#my $ret = Graph::createGraph();
#my $cc = Graph::prepareData();
#Graph::getCCHash();

#use Data::Dumper;
#print Dumper($ret);



